home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_B.d64 / koalacopy v3.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  318 lines
  1. 0 hi=24576:d1=32576:d2=33576:d0=0:poke650,128:poke649,1:poke56,32
  2. 5 f1$=chr$(133):f3$=chr$(134):f5$=chr$(135):f7$=chr$(136)
  3. 7 f2$=chr$(137):f4$=chr$(138):f6$=chr$(139):f8$=chr$(140)
  4. 8 poke53280,0:poke53281,6:gosub5000:restore
  5. 10 geta$:ifa$="h"then100
  6. 20 ifa$="h"then100
  7. 30 ifa$="l"then1000
  8. 40 ifa$="s"then2000
  9. 50 ifa$="d"then1500
  10. 60 ifa$="e"then3000
  11. 65 ifa$="g"then9000
  12. 70 ifa$="m"then3500
  13. 75 ifa$="x"then7000
  14. 80 ifa$="c"then4000
  15. 85 ifa$="f"then6000
  16. 90 goto10
  17. 100 sys49920
  18. 150 c=peek(1024):c1=cand15:c2=int(c/16)
  19. 160 c3=peek(55296)and15:c4=peek(53281)and15
  20. 200 geta$:ifa$=f1$then300
  21. 210 ifa$=f1$then300
  22. 215 ifa$=f2$then340
  23. 220 ifa$=f3$then350
  24. 225 ifa$=f4$then390
  25. 230 ifa$=f5$then400
  26. 235 ifa$=f6$then440
  27. 240 ifa$=f7$then450
  28. 245 ifa$=f8$then490
  29. 249 ifa$=chr$(13)then500
  30. 250 ifa$=chr$(141)then510
  31. 290 goto200
  32. 300 c1=c1+1:ifc1>15thenc1=0
  33. 310 poke2,c1+c2*16
  34. 320 sys49334
  35. 330 goto200
  36. 340 c1=c1-1:ifc1<0thenc1=15
  37. 342 goto310
  38. 350 c2=c2+1:ifc2>15thenc2=0
  39. 360 goto310
  40. 390 c2=c2-1:ifc2<0thenc2=15
  41. 392 goto310
  42. 400 c3=c3+1:ifc3>15thenc3=0
  43. 410 poke2,c3
  44. 420 sys49353
  45. 430 goto200
  46. 440 c3=c3-1:ifc3<0thenc3=15
  47. 442 goto410
  48. 450 c4=c4+1:ifc4>15thenc4=0
  49. 460 poke53281,c4
  50. 470 goto200
  51. 490 c4=c4-1:ifc4<0thenc4=15
  52. 492 poke53281,c4
  53. 494 goto200
  54. 500 sys49154
  55. 510 sys49395
  56. 520 goto8
  57. 1000 na$=""
  58. 1005 input"[146][147][154]  enter name";na$
  59. 1007 ifna$=""then8
  60. 1010 k=len(left$(na$,16))
  61. 1020 poke49419,k
  62. 1025 poke49432,32
  63. 1030 fori=1tok
  64. 1040 poke49436+i,asc(mid$(na$,i,1))
  65. 1050 next
  66. 1055 sys49920
  67. 1060 sys49411
  68. 1062 goto4500
  69. 1500 print"[147][146][154]":sys49664
  70. 1505 geta$:ifa$=""then1505
  71. 1590 goto8
  72. 2000 input"[146][147][154]  enter letter";le$
  73. 2010 le$=(left$(le$,1))
  74. 2015 na$=""
  75. 2020 input"  enter name";na$
  76. 2025 ifna$=""then8
  77. 2030 na$=left$(na$+"       ",8)
  78. 2040 fi$="[129]pic "+le$+" "+na$
  79. 2050 k=len(fi$)
  80. 2060 poke49462,k
  81. 2070 fori=1tok
  82. 2080 poke49487+i,asc(mid$(fi$,i,1))
  83. 2090 nexti
  84. 2092 fori=0to5
  85. 2094 reada
  86. 2096 poke34577+i,a
  87. 2098 nexti
  88. 2099 data48,,,253,67,66
  89. 2100 open1,8,15,"s:[129]pic "+le$+"*":close1
  90. 2105 sys49456
  91. 2110 goto8
  92. 3000 sys49920
  93. 3010 sys49769
  94. 3020 goto4500
  95. 3500 print"[146][147][154]  $2000 bit-map"
  96. 3510 pa=2
  97. 3520 geta$
  98. 3530 ifa$=chr$(13)then3750
  99. 3540 ifa$=""thenpa=pa+2:ifpa>14thenpa=2
  100. 3550 ifa$="[145]"thenpa=pa-2:ifpa<2thenpa=14
  101. 3560 on(pa/2)gosub3600,3605,3610,3615,3620,3625,3630
  102. 3570 goto3520
  103. 3600 print"2":return
  104. 3605 print"4":return
  105. 3610 print"6":return
  106. 3615 print"8":return
  107. 3620 print"a":return
  108. 3625 print"c":return
  109. 3630 print"e":return
  110. 3750 sys49318:poke2,33:sys49334:poke2,6:sys49353:poke53281,0
  111. 3755 fori=0to999:next
  112. 3760 sys49792,pa*4096
  113. 3780 goto4500
  114. 3999 end
  115. 4000 print"[154][147]  color (1[146]) or (2[146])?"
  116. 4010 geta$:ifa$<"1"ora$>"2"then4010
  117. 4015 ifa$="1"thenpoke49584,4
  118. 4017 ifa$="2"thenpoke49584,216
  119. 4020 print"  color "a$:na$=""
  120. 4030 input"  enter name ";na$
  121. 4032 ifna$=""then8
  122. 4035 na$=left$(na$,16)
  123. 4037 sys49920
  124. 4040 open1,8,2,na$
  125. 4050 sys49568
  126. 4100 close1
  127. 4102 goto4500
  128. 4500 poke198,0
  129. 4505 geta$
  130. 4510 ifa$=chr$(13)thensys49154:sys49395:goto8
  131. 4520 ifa$=chr$(141)thensys49395:goto8
  132. 4530 goto4505
  133. 5000 sys50432:poke896,255:poke725,255:sys49520:return
  134. 6000 sys49920
  135. 6010 x1=0 :y1=0
  136. 6020 x2=39:y2=24
  137. 6025 cu=1
  138. 6030 vc=53248
  139. 6040 pokevc+21,3
  140. 6050 poke2040,14:poke2041,11
  141. 6075 o1=x1*8+24:p1=y1*8+50
  142. 6080 o2=x2*8+24:p2=y2*8+50
  143. 6100 pokevc,o1and255:pokevc+1,p1
  144. 6105 ifo1<=255thenpokevc+16,peek(vc+16)and254
  145. 6107 ifo1>255thenpokevc+16,peek(vc+16)or1
  146. 6110 pokevc+2,o2and255:pokevc+3,p2
  147. 6115 ifo2<=255thenpokevc+16,peek(vc+16)and253
  148. 6117 ifo2>255thenpokevc+16,peek(vc+16)or2
  149. 6150 ifcu=2then6350
  150. 6250 geta$
  151. 6260 ifa$="[145]"andy1>0theny1=y1-1:goto6075
  152. 6270 ifa$=""andy1<y2theny1=y1+1:goto6075
  153. 6280 ifa$="[157]"andx1>0thenx1=x1-1:goto6075
  154. 6290 ifa$=""andx1<x2thenx1=x1+1:goto6075
  155. 6295 ifa$=" "then6345
  156. 6297 ifa$=chr$(13)then6800
  157. 6299 ifa$=chr$(141)then6810
  158. 6300 goto6250
  159. 6345 cu=2
  160. 6350 geta$
  161. 6360 ifa$="[145]"andy2>y1theny2=y2-1:goto6075
  162. 6370 ifa$=""andy2<24theny2=y2+1:goto6075
  163. 6380 ifa$="[157]"andx2>x1thenx2=x2-1:goto6075
  164. 6390 ifa$=""andx2<39thenx2=x2+1:goto6075
  165. 6395 ifa$=" "then6500
  166. 6397 ifa$=chr$(13)then6800
  167. 6399 ifa$=chr$(141)then6810
  168. 6400 goto6350
  169. 6500 c=peek(1024+x1+y1*40)
  170. 6510 c1=cand15:c2=(cand240)/16
  171. 6520 c3=peek(55296+x1+y1*40)and15
  172. 6530 c4=peek(53281)and15
  173. 6540 sys50084, 1024,x1,y1,x2,y2,c1+c2*16
  174. 6550 sys50084,55296,x1,y1,x2,y2,c3
  175. 6560 poke53281,c4
  176. 6600 geta$
  177. 6610 ifa$=f1$then6700
  178. 6615 ifa$=f2$then6710
  179. 6620 ifa$=f3$then6720
  180. 6625 ifa$=f4$then6730
  181. 6630 ifa$=f5$then6740
  182. 6635 ifa$=f6$then6750
  183. 6640 ifa$=f7$then6760
  184. 6645 ifa$=f8$then6770
  185. 6650 ifa$=" "then6010
  186. 6660 goto6600
  187. 6700 c1=c1+1:ifc1>15thenc1=0
  188. 6705 goto6540
  189. 6710 c1=c1-1:ifc1<0thenc1=15
  190. 6715 goto6540
  191. 6720 c2=c2+1:ifc2>15thenc2=0
  192. 6725 goto6540
  193. 6730 c2=c2-1:ifc2<0thenc2=15
  194. 6735 goto6540
  195. 6740 c3=c3+1:ifc3>15thenc3=0
  196. 6745 goto6540
  197. 6750 c3=c3-1:ifc3<0thenc3=15
  198. 6755 goto6540
  199. 6760 c4=c4+1:ifc4>15thenc4=0
  200. 6765 goto6540
  201. 6770 c4=c4-1:ifc4<0thenc4=15
  202. 6775 goto6540
  203. 6800 sys49154
  204. 6810 sys49395:pokevc+21,0:goto8
  205. 7000 print"[147][154]"
  206. 7015 print" load:
  207. 7020 [153]"<1> to $6000
  208. 7030 print"<2> to origin
  209. 7040 [153]"<3> koala
  210. 7050 print"<4> blazing paddles
  211. 7060 [153]"<5> paint magic
  212. 7100 print" show:"
  213. 7110 print"<0> origin
  214. 7120 [153]"<x> menue
  215. 7200 geta$:ifa$="0"then8000
  216. 7220 ifa$="x"then8
  217. 7222 ifa$="4"then8300
  218. 7223 ifa$="5"then8400
  219. 7225 ifa$="1"then8200
  220. 7227 ifa$="3"then8200
  221. 7230 ifa$="2"then8100
  222. 7999 goto7200
  223. 8000 print"[147][209]show origin[209]
  224. 8005 na$[178]""
  225. 8010 [133]"  enter name";na$
  226. 8020 [139]na$[178]""[167]7000
  227. 8030 [159]1,8,2,na$
  228. 8040 [161]#1,a$,b$
  229. 8045 [139]st[179][177]0[167][153]"  (NULL)tantantantantanright$cmdcmdcmdcmdcmdcmdcmd(NULL)huh?!(NULL)cmdcmdcmdcmdcmdcmdcmdmid$tantantantantan(NULL)":[137]8090
  230. 8050 [139]a$[178]""[167]a$[178][199](0)
  231. 8060 [139]b$[178]""[167]b$[178][199](0)
  232. 8070 ad[178][198](a$)[170]256[172][198](b$)
  233. 8080 [153]"  origin:"ad
  234. 8090 [160]1
  235. 8092 [151]198,0:[146]198,1
  236. 8095 [137]7000
  237. 8100 [153]"load(NULL)load to origin(NULL)
  238. 8105 na$=""
  239. 8110 input"  enter name";na$
  240. 8120 ifna$=""then7000
  241. 8130 sys57812na$,8,1:poke780,0:sys65493
  242. 8140 print"  [213][192][192][192][192][192][201][157][157][157][157][157][157][157][221]ready[221][157][157][157][157][157][157][157][202][192][192][192][192][192][203]":goto8092
  243. 8200 print"[147][209]load to $6000[209]
  244. 8205 na$[178]""
  245. 8210 [133]"  enter name";na$
  246. 8215 [139]na$[178]""[167]8
  247. 8217 [139][200](na$,1)[178]"tan"[167]na$[178]"forpic ? "[170][202](na$,2,8)[170]"*"
  248. 8220 k[178][195]([200](na$,16))
  249. 8230 [151]49419,k
  250. 8240 [151]49432,96
  251. 8250 [129]i[178]1[164]k
  252. 8260 [151]49436[170]i,[198]([202](na$,i,1))
  253. 8270 [130]
  254. 8280 [158]49411
  255. 8282 [139]a$[178]"1"[167]8
  256. 8285 [158]49920
  257. 8290 [137]4500
  258. 8300 [153]"load(NULL)load blazing paddles(NULL)
  259. 8305 na$=""
  260. 8310 input"  enter name";na$
  261. 8315 ifna$=""then8
  262. 8320 k=len(left$(na$,16))
  263. 8330 poke49419,k
  264. 8340 poke49432,64
  265. 8350 fori=1tok
  266. 8360 poke49436+i,asc(mid$(na$,i,1))
  267. 8370 next
  268. 8380 sys49411
  269. 8390 hi=16384:c1=24576:c2=25600
  270. 8395 goto9200
  271. 8400 print"[147][209]load paint magic[209]
  272. 8405 na$[178]""
  273. 8410 [133]"  enter name";na$
  274. 8415 [139]na$[178]""[167]8
  275. 8420 [158]57812na$,8,1:[151]780,0:[158]65493
  276. 8500 [158]49318
  277. 8510 [158]49792,16384
  278. 8520 [151]49638,4
  279. 8530 [158]49616,24576
  280. 8540 [151]2,[194](24387)
  281. 8550 [158]49353
  282. 8560 [151]53281,[194](24388)
  283. 8590 [137]4500
  284. 9000 [153]"loadcont(NULL)grab picture(NULL)
  285. 9010 print" grab:"
  286. 9020 print"<0>hires  :"hi
  287. 9030 print"<1>color 1:"d1
  288. 9040 print"<2>color 2:"d2
  289. 9045 print"<3>back   :"d0
  290. 9060 print" do  :"
  291. 9070 print"<g>perform grab
  292. 9080 [153]"<x>see menue
  293. 9100 geta$:ifa$=""then9100
  294. 9110 ifa$="x"then8
  295. 9120 ifa$="g"then9200
  296. 9130 ifa$="0"then9300
  297. 9140 ifa$="1"then9400
  298. 9145 ifa$="2"then9500
  299. 9150 ifa$="3"then9600
  300. 9190 goto9100
  301. 9200 sys49318
  302. 9210 sys49792,hi
  303. 9220 poke49638,4
  304. 9230 sys49616,d1
  305. 9240 poke49638,216
  306. 9250 sys49616,d2
  307. 9255 poke53281,d0
  308. 9260 goto4500
  309. 9300 input"[147]  enter hires:";hi
  310. 9310 goto9000
  311. 9400 input"[147]  enter color 1:";d1
  312. 9410 goto9000
  313. 9500 input"[147]  enter color 2:";d2
  314. 9510 goto9000
  315. 9600 input"[147]  enter border:";d0
  316. 9610 ifd0>15then9600
  317. 9620 goto9000
  318.